5 POKE53281,11:POKE53280,0
10 DIMM$(1000),N$(1000)
20 D=3
30 PRINT"[147]":GOSUB40:GOTO70
40 FORA=1TO39:PRINTMID$("",A+(A>8)*8+(A>16)*8,1)" ";
50 NEXT:PRINT"[146] ";:RETURN
60 GOSUB40:GOTO70
70 PRINT"[159]WRITTEN BY":PRINT
80 PRINT"[144] JACK D. HENDRICKS"
90 PRINT"";:GOSUB40:PRINT"":GOSUB40:GOSUB1800
95 REMPRINT"         PRESS ANY KEY"
100 GOSUB1900
110 PRINT"[158]            OPTIONS:":PRINT"            1[146] LOAD NO.S"
120 PRINT"            2[146] CREATE FILE"
130 PRINT"            3[146] DELETE NO."
140 PRINT"            4[146] ADD NO.S"
150 PRINT"            5[146] VIEW NO.S"
160 PRINT"            6[146] SAVE FILE"
170 PRINT"            7[146] PRINT NO.S"
180 PRINT"            8[146] ALPHABETIZE"
190 PRINT"            9[146] EXIT PROGRAM"
200 PRINT"            WHICH ONE?"
205 GOSUB1810:A=VAL(A$)
210 IFA<1ORA>9THEN200
220 ONAGOSUB240,500,600,800,900,1300,2100,2000,1700
225 GOTO100
230 DISK OR TAPEPRINT
240 GOSUB1900:PRINT"          [159]D[146]ISK OR T[146]APE?"
250 GOSUB1810
260 IFA$="D"THEN300
270 IFA$="T"THEN400
280 GOTO250
290 DISK LOAD
300 INPUT"          FILE NAME ";P$
310 OPEN2,8,2,"0:"+P$+",S,R"
320 INPUT#2,N
330 FORI=1TON
340 INPUT#2,M$(I)
350 INPUT#2,N$(I)
360 NEXT:CLOSE2
370 PRINT"PROGRAM CURRENTLY     CONTAINS"N:PRINT"LISTING."
380 GOSUB1810:CLOSE2:RETURN
390 TAPE LOAD
400 OPEN1
410 INPUT#1,N
420 FORI=1TON
430 INPUT#1,M$(I)
440 INPUT#1,N$(I)
450 NEXT:CLOSE1
460 PRINT"PROGRAM CURRENTLY     CONTAINS"N:PRINT"LISTING."
470 GOSUB1810:RETURN
490 CREATE
500 GOSUB1900:N=1:I=1
510 PRINT"FREE MEM."FRE(.):INPUT"NAME";M$(I):IFM$(I)="*END"THENM$(I)="":N=N-1:I=I-1:RETURN
520 INPUT"NO.";N$(I)
530 N=N+1:I=I+1
540 GOSUB1900:GOTO510
590 DELETE
600 GOSUB1900
610 INPUT"         NAME TO DELETE";A$
620 FORI=1TON
630 IFM$(I)=A$THEN680
640 NEXT
650 PRINT"          I CAN'T FIND "A$"."
660 PRINT"IT COULD BE MISSPELLED"
670 GOSUB1810:RETURN
680 FORA=I+1TON+1
690 M$(A-1)=M$(A):N$(A-1)=N$(A)
700 NEXT:N=N-1
710 RETURN
790 ADD
800 GOSUB1900:FORI=1TON:NEXT
810 PRINT"FREE MEM."FRE(.):INPUT"NAME";M$(I):IFM$(I)="*END"THENRETURN
820 INPUT"NO.";N$(I)
830 N=N+1:I=I+1
840 GOSUB1900:GOTO810
890 VIEW
900 GOSUB1900:PRINT"[158]         HOW DO YOU WANT TO VIEW?"
910 PRINT"            N[146]AME"
920 PRINT"            L[146]ETTER"
930 PRINT"            C[146]OMPLETE LIST"
940 PRINT"            WHICH ONE?"
950 GOSUB1810
960 IFA$="N"THEN1010
970 IFA$="L"THEN1100
980 IFA$="C"THEN1200
990 GOTO950
1000 NAME SORT
1010 GOSUB1900
1020 INPUT"         NAME";A$:PRINT"[147]":OPEND,D,5:CMDD
1030 FORI=1TON
1040 IFM$(I)=A$THENPRINT#D,M$(I):PRINT#D,N$(I):IFD=3THENPRINT
1050 NEXT
1055 REM OPEND
1060 PRINT"THAT'S ALL OF THEM."
1065 CLOSED
1070 GOSUB1800:RETURN
1090 LETTER SORT
1100 PRINT"WHAT LETTER DO YOU":INPUT"WANT TO SORT BY";A$:PRINT"[147]":OPEND,D:CMDD
1110 FORI=1TON
1120 IFLEFT$(M$(I),LEN(A$))=A$THENPRINT#D,M$(I):PRINT#D,N$(I):IFD=3THENPRINT:FORA=1TO2000:NEXT
1130 NEXT
1140 GOTO1060
1190 COMPLETE SORT
1200 PRINT"[147]":OPEND,D:CMDD:FORI=1TON
1210 PRINT#D,M$(I):PRINT#D,N$(I):IFD=3THENPRINT#D
1220 IFD=3THENFORA=1TO2000:NEXT
1230 NEXT:D=3:GOTO1060
1290 SAVE
1300 GOSUB1900
1310 PRINT"D[146]ISK OR T[146]APE?"
1320 GOSUB1800
1330 IFA$="D"THEN1370
1340 IFA$="T"THEN1460
1350 GOTO1320
1360 DISK SAVE
1370 INPUT"FILE NAME";P$
1380 OPEN2,8,2,"@0:"+P$+",S,W"
1390 PRINT#2,N
1400 FORI=1TON
1410 PRINT#2,M$(I)
1420 PRINT#2,N$(I)
1430 NEXT:CLOSE2
1440 GOTO100
1450 TAPE SAVE
1460 OPEN1,1,1
1470 PRINT#1,N
1480 FORI=1TON
1490 PRINT#1,M$(I)
1500 PRINT#1,N$(I)
1510 NEXT:CLOSE1
1520 GOTO100
1590 PRINT
1600 OPEN4,4:CMD4
1610 FORI=1TON
1620 PRINT#4,M$(I)
1630 PRINT#4,N$(I)
1640 PRINT#4
1650 NEXT
1660 PRINT#4
1670 PRINT#4,"          THAT'S ALL OF THEM."
1680 CLOSE4:GOTO100
1690 EXIT
1700 CLOSE4:CLOSE2:END
1800 REMPRINT"          PRESS ANY KEY[146]"
1805 REM PRINT"         [158] PRESS ANY KEY[146]"
1810 GETA$:IFA$=""THEN1810
1820 RETURN
1899 END
1900 PRINT"[147]                                        "
1910 PRINT"[145]      [146]PHONE LIST                      "
1920 PRINT"[145]                                        "
1930 RETURN
1990 ALPHABETIZE
2000 PRINT" [159]ALPHABETIZING PLEASE[146]         WAIT!":FORA=1TON-1
2005 PRINT"[145]"TI
2010 FORB=A+1TON
2020 IFM$(B)<=M$(A)THENSM$=M$(B):M$(B)=M$(A):M$(A)=SM$:SM$=N$(B):N$(B)=N$(A):N$(A)=SM$
2030 NEXTB:NEXTA
2040 RETURN
2100 D=4:GOTO900